"orings" <-
structure(list(Temperature = c(53, 57, 58, 63, 66, 67, 67, 67, 
68, 69, 70, 70, 70, 70, 72, 73, 75, 75, 76, 76, 78, 79, 81), 
    Erosion = c(3, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0), Blowby = c(2, 0, 0, 0, 0, 0, 0, 
    0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0), Total = c(5, 
    1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 
    0, 0, 0)), .Names = c("Temperature", "Erosion", "Blowby", 
"Total"), class = "data.frame", row.names = c("1", "2", "3", 
"4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", 
"16", "17", "18", "19", "20", "21", "22", "23"))
